procedure Form1.button1_Click (sender: Object; e: EventArgs);
var a,b: integer;
c:real;
begin
a := StrToInt(TextBox1.Text);
b := a * a;
c := sqrt(a);
TextBox2.Text := IntToStr(b);
TextBox3.Text := FloatToStr(c);
end;